home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 32 / Mobi_32.iso / pc / DATA / Com / com02_27.dir 1 / 00006_Script_6 < prev    next >
Text File  |  2001-01-08  |  505b  |  24 lines
  1. -- ajout du numero ‡ la commande
  2. on mouseUp
  3.   global ListeCom, ListeQte
  4.   set test = 1
  5.   if count(ListeCom) = 0 then
  6.     add ListeCom, value(field "numero")
  7.     add ListeQte, 1
  8.   else    
  9.     repeat with i = 1 to count(ListeCom)
  10.       if getAt(ListeCom,i) = value(field "numero") then
  11.         set test = 0
  12.       end if      
  13.     end repeat
  14.     
  15.     if test = 1 then
  16.       add ListeCom, value(field "numero")
  17.       add ListeQte, 1
  18.     end if
  19.     
  20.   end if    
  21.   
  22.   acces "pan01"
  23. end
  24.